home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11a.d64
/
klang einfach
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
723b
|
31 lines
100 REM--------------------------------
110 REM EINFACHE KLANGEFFEKTE
120 REM--------------------------------
130 S=54272
140 READ A,D,SU,R,C,P,F,M,FF,FR,ML
150 POKE S+5 ,16*A +D
160 POKE S+6 ,16*SU+R
170 POKE S+2 ,P AND 255
180 POKE S+3 ,P/256
190 HI=INT(F/256):LO=F-256*HI
200 POKE S ,LO
210 POKE S+1 ,HI
220 POKE S+22,FF
230 POKE S+23,FR
240 POKE S+24,ML
250 GET A$:IF A$="" THEN 250
260 : POKE S+4,C OR 1
270 : FOR I=1 TO M:NEXT I
280 : POKE S+4,C AND 254
290 GOTO 250
300 REM--------------------------------
310 REM PARAMETER
320 DATA 0 ,10, 0,10:REM A D S R
330 DATA 16 :REM CONTROL-BYTE
340 DATA 2048 :REM PULSWEITE
350 DATA 40000 :REM FREQUENZ
360 DATA 100 :REM VERZOEGERUNG
370 DATA 50 :REM FILTERFREQUENZ
380 DATA 0 :REM FILTERRESONANZ
390 DATA 15 :REM MODUS/LAUT